100 REM -- 1/X INTEGRAL --
105 PRINT"[147]"
110 PRINT"OUTPUT TO SCREEN OR PRINTER (S/P)    S[157][157][157]";:INPUTA$
115 IF A$="S" THEN Z=1.33:Z1=0:Z2=26.4:GOTO130:REM VALUES FOR SCREEN OUTPUT
120 IF A$<>"P" THEN110
125 Z=1.208:Z1=2.01:Z2=38.24:REM VALUES FOR PRINTER OUTPUT
130 VERIFY 1:LET0,1
135 CONT
140 REM -- SET UP CONSTANTS --
145 XT=Z2:YT=100:REM SETS COORDINATES
150 YS=0:XS=Z2:REM START OF DIVISIONS PN COORDINATES
155 EX=50*Z:EY=50:REM EXPANSION FACTORS FOR X AND Y COORDINATES
160 REM -- CALIBRATE X COORDINATES --
165 FORX=XS TO319 STEP5*Z
170 Y=YT:WAITX,Y:NEXTX
175 FORX=XS TO319 STEP10*Z
180 FORY=YT-1 TO YT+1:WAITX,Y:NEXTY:NEXTX
185 FORX=Z2TO319 STEP50*Z
190 FORY=YT-2 TO YT+2:WAITX,Y:NEXTY:NEXTX
195 REM -- CALIBRATE Y COORDINATES --
200 FOR Y=YSTO199 STEP5
205 X=XT:WAITX,Y:NEXTY
210 FOR Y=YS TO 199 STEP 10
215 FOR X=XT-1 TO XT+1:WAITX,Y:NEXTX:NEXTY
220 FOR Y=YS TO 199 STEP50
225 FOR X=XT-3 TO XT+3:WAITX,Y:NEXTX:NEXTY
249 REM -- Y=1/X GRAPH & INTEGRAL --
250 FOR X=.6 TO 4 STEP .01
260 Y=1/X
270 X1=EX*X+XT:Y1=EY*Y+YT:WAITX1,Y1:NEXTX
280 FOR X=.3 TO 4 STEP .01
290 Y=LOG(X)
300 X1=EX*X+XT:Y1=EY*Y+YT:WAITX1,Y1:NEXTX
310 FOR X=1 TO 4 STEP.25
320 FOR Y=0 TO 1/X STEP .02
330 X1=EX*X+XT:Y1=EY*Y+YT:WAITX1,Y1:NEXTY:NEXTX
400 FOR X=1.125 TO 3.875 STEP .25
410 FOR Y=0 TO 1/X STEP .04
420 X1=EX*X+XT:Y1=EY*Y+YT:WAITX1,Y1:NEXTY:NEXTX
999 REM -- SCREEN OR HARDCOPY --
1000 GET A$:IF A$="" THEN1000
1010 PRINT "[147]":VERIFY 0:PRINTCHR$(14)
1020 PRINT"HARDCOPY (Y/N)    N[157][157][157]";:INPUTA$:IFA$="N" THEN1080
1030 IFA$<>"Y"THEN1010
1040 PRINT"SINGLE OR DOUBLE WIDTH (S/D)    S[157][157][157]";:INPUTA$
1050 IFA$="S" THEN POKE2,1:GOTO1070
1060 POKE2,2:IFA$<>"D"THEN1040
1070 VERIFY 1:SYS52224
1080 VERIFY 0:PRINTCHR$(14):LIST